home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / snoopy (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  399b  |  19 lines
  1. 19100 REM***SNOOPY CONGRATS***
  2. 19101 PRINT"[147]":POKE53280,4:POKE53281,6
  3. 19105 FORX=1TO25
  4. 19110 PRINT"[158]"
  5. 19120 PRINT:PRINT:PRINT:PRINT
  6. 19130 PRINTTAB(X)"     [213][192][201]"
  7. 19140 PRINTTAB(X)"[160][160][160]  [169][146] [215][192][172]"
  8. 19150 PRINTTAB(X)"[160] [210][198][192] [146][201][178][192][203]"
  9. 19160 PRINTTAB(X)"[160] [198][196][196][178][203][171][215] "
  10. 19170 PRINTTAB(X)"[160]  [160][198][179][160][202][192][201]"
  11. 19180 PRINTTAB(X)"[160] [169][160][160][160][160][160][160][160] [223][146]"
  12. 19190 PRINTTAB(X)"[160][169][163][163][163][163][163][163][163][163][163][163][223][146]"
  13. 19200 PRINTTAB(X)"[160]  [163][163][163][163][163][163][163][163][146]"
  14. 19210 PRINTTAB(X)"[160]  [163][163][163][163][163][163][163][163][146]"
  15. 19220 PRINTTAB(X)"   [163][163][163][163][163][163][163][163][146]"
  16. 19225 NEXT X
  17. 19230 PRINT"YOU'RE RIGHT!   GOOD SHOOTIN' ![146]"
  18. 19240 FORPP=1TO1000:NEXTPP
  19.